home *** CD-ROM | disk | FTP | other *** search
/ Publication 7 / Publication_07_1996_High-Tech_de_Side_B.d64 / krieg der sterne (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  11KB  |  324 lines
  1. 10 print"[147]"
  2. 11 poke53280,0:poke53281,0:poke646,5
  3. 12 ar=37:ao=24:av=10:sp=1
  4. 15 print"           krieg der sterne            [146]"
  5. 16 print"written by mad rommel & max"
  6. 18 print"ein adventure nach dem gleichnamigen"
  7. 19 print"            filmerfolg"
  8. 22 print"die eingabe erfolgt in 2-wort passagen"
  9. 24 print"wie zum beispiel: benutze macht"
  10. 26 print"man kann die woerter auf 3 buchstaben"
  11. 27 print"kuerzen: ben mac"
  12. 30 print"ich verstehe folgende woerter:"
  13. 31 print"nimm; lege; toete; feuer; kauf; verkauf;aussteigen,"
  14. 32 print"benutze; betrete; lies; inv[146]entur; sie[146]he"
  15. 34 print"<taste[146]>"
  16. 36 geta$:ifa$=""then36
  17. 37 print"[147]"
  18. 40 print"           krieg der sterne            [146]"
  19. 41 print"toete= benutzen des laser-schwertes"
  20. 42 print"feuer + objekt= schiesen auf objekt"
  21. 43 print"macht= eine faehigkeit den geist einer"
  22. 44 print"anderen person zu beeinflussen"
  23. 46 print"der beste weg das adventure zu losen"
  24. 47 print"ist der, den film zu sehen oder das buch"
  25. 48 print"[145]zu lesen"
  26. 49 print"richtungseingabe: n[146]ord s[146]ued o[146]st w[146]est    h[146]och r[146]unter"
  27. 54 print"<taste[146]>"
  28. 55 geta$:ifa$=""then55
  29. 56 print"[147]"
  30. 60 print"           krieg der sterne            [146]"
  31. 61 print"sie sind in der rolle des farmerjungen"
  32. 63 print"luke skywalker auf dem wuestenplaneten"
  33. 64 print"dantooine.
  34. 66 [153]"das imperium herrscht grausam ueber die"
  35. 67 [153]"galaxis. rebellen haben dem imperator,"
  36. 69 [153]"seiner rechten hand, darth vader, und"
  37. 70 [153]"ihren imperialen sturmtruppen den kampf"
  38. 71 [153]"onangesagt. ihre anfuehrerin, prinzessin"
  39. 73 [153]"leia, wurde gefangengenommen und in die"
  40. 74 [153]"raumstation 'todesstern' verschleppt."
  41. 75 [153]"sie haben die moeglichkeit die galaxis"
  42. 76 [153]"zu retten."
  43. 79 [153]"moege die macht mit dir sein"
  44. 84 [153]"<tastewait>"
  45. 85 [161]a$:[139]a$[178]""[167]85
  46. 90 [134]ra$(ar),du(ar,6),ob$(ao),rn$(ao),ob(ao),ms$(20)
  47. 101 [131]"in lukes zimmer",0,0,0,2,0,0
  48. 102 [131]"in der kueche",0,0,1,0,3,0
  49. 103 [131]"im hof",0,0,4,9,0,2
  50. 104 [131]"im hof",5,0,0,3,0,0
  51. 105 [131]"in einer schlucht",10,4,6,0,0,0
  52. 106 [131]"in der wueste",8,0,7,0,0,0
  53. 107 [131]"in der wueste",7,7,7,6,0,0
  54. 108 [131]"in der wueste",7,7,5,6,0,0
  55. 109 [131]"in der werkstatt",0,0,3,0,0,0
  56. 110 [131]"im canyon",11,5,0,12,0,0
  57. 111 [131]"in ben's huette",0,10,0,0,0,0
  58. 112 [131]"in der wueste",0,0,10,13,0,0
  59. 113 [131]"in mos eisley",0,0,12,14,0,0
  60. 114 [131]"in der innenstadt",0,15,13,0,0,0
  61. 115 [131]"in einer strasse",15,16,0,0,0,0
  62. 116 [131]"auf dem gleitermarkt",15,0,0,0,0,0
  63. 117 [131]"in der bar",0,18,15,0,0,0
  64. 118 [131]"im raumhafen",17,0,0,0,0,0
  65. 119 [131]"im raumer 'rasender falke'",0,0,0,0,0,0
  66. 120 [131]"im hangar des 'todessterns'",21,0,0,0,0,0
  67. 121 [131]"in einem gang",0,20,24,22,0,0
  68. 122 [131]"in der gefaengnisszentrale",23,0,21,0,0,0
  69. 123 [131]"in einer zelle",0,22,0,0,0,0
  70. 124 [131]"in einem gang",25,0,0,21,0,0
  71. 125 [131]"im generator-raum",0,24,0,0,0,0
  72. 126 [131]"im rebellen-hangar",0,0,27,0,0,0
  73. 127 [131]"in einer halle",28,0,0,26,0,0
  74. 128 [131]"im unerrichts-raum",0,27,0,0,0,0
  75. 129 [131]"beim todesstern",30,0,0,0,0,0
  76. 130 [131]"in einem kanal",31,29,0,32,37,0
  77. 131 [131]"in einem kanal",0,30,0,33,37,0
  78. 132 [131]"in einem kanal",33,0,30,0,37,0
  79. 133 [131]"in einem kanal",0,32,31,34,37,0
  80. 134 [131]"in einem kanal",35,0,33,0,37,0
  81. 135 [131]"in einem kanal",0,34,36,0,37,0
  82. 136 [131]"in einem kanal",0,0,0,35,37,0
  83. 137 [131]"im freien raum",0,0,0,0,0,29
  84. 401 [131]"laser gewehr","gew",1
  85. 402 [131]"muenzen","mue",2
  86. 403 [131]"c3po","c3p",3
  87. 404 [131]"r2d2","r2d",3
  88. 405 [131]"gleiter","gle",4
  89. 406 [131]"onkel owen","onk",4
  90. 407 [131]"laser-schwert","sch",11
  91. 408 [131]"imperiale sturmtruppen","stu",13
  92. 409 [131]"ganster","gan",17
  93. 410 [131]"raumer 'rasender falke'","fal",18
  94. 411 [131]"soldaten","sol",20
  95. 412 [131]"die macht","mac",-1
  96. 413 [131]"laser","las",0
  97. 414 [131]"traktorstrahl-generator","gen",25
  98. 415 [131]"offizier","off",22
  99. 416 [131]"raumjaeger","jae",26
  100. 417 [131]"tafel","taf",28
  101. 418 [131]"imperialer jaeger","imp",29
  102. 419 [131]"laser-turm","tur",31
  103. 420 [131]"ventilationsschacht","ven",36
  104. 421 [131]"geld","gel",17
  105. 422 [131]"ben","ben",10
  106. 423 [131]"leia","lei",23
  107. 424 [131]"bar","bar",15
  108. 800 [131]nim,leg,toe,feu,kau,ver,ben,bet,aus,lie
  109. 900 ms$(0)[178]"ich verstehe nicht was sie meinen"
  110. 901 ms$(1)[178]"sie sind in einem fahrzeug"
  111. 902 ms$(2)[178]"das ist ihr freund"
  112. 903 ms$(3)[178]"sie koennen die strecke nicht laufen"
  113. 904 ms$(4)[178]"sie wurden niedergeschossen"
  114. 905 ms$(5)[178]"ihr raumer wurde zerstoert"
  115. 906 ms$(6)[178]"zu schwer"
  116. 950 [129]ra[178]1[164]ar:[135]ra$(ra)
  117. 952 [129]ri[178]1[164]6:[135]du(ra,ri)
  118. 954 [130]ri:[130]ra
  119. 961 [129]ob[178]1[164]ao:[135]ob$(ob),rn$(ob),ob(ob):[130]ob
  120. 970 [129]i[178]1[164]av:[135] ve$(i):[130]i
  121. 1020 [131] nord, sued, west, ost, hoch, runter
  122. 1030 [129]ri[178]1[164]6:[135] ri$(ri):[130] ri
  123. 1070 [153]"load"
  124. 1080 [153]"load"
  125. 1140 [153]"sie sind ";
  126. 1150 [153]ra$(sp)
  127. 1160 [153]"sie sehen: "
  128. 1170 [129]i[178]1[164]ao
  129. 1180 [139]ob(i)[179][177]sp[167]1200
  130. 1185 [153]ob$(i)
  131. 1200 [130]i
  132. 1220 [153]"sie koennen nach: "
  133. 1230 [129]ri[178]1[164]6
  134. 1240 [139]du(sp,ri)[178]0[167]1250
  135. 1246 [153]ri$(ri)
  136. 1250 [130]ri
  137. 1252 [139]sp[178]4[175]ob(3)[179][177][171]1[167]sp[178]3:[153]"ihr onkel schickt sie zurueck":[137]1280
  138. 1253 [139]dt[178]0[175]sp[178]19[167]10000
  139. 1254 [139]ts[178]1[175]sp[178]19[167]10200
  140. 1256 [139]ob(22)[178][171]1[175]gz[178]1[175]sp[178]24[167]8900
  141. 1257 [139]ob(22)[179][177][171]1[175]gz[178]1[175]sp[178]24[167]8910
  142. 1258 [139]gz[178]1[175]sp[178]17[167]8915
  143. 1260 [139]sp[178]37[175]ob(20)[178]0[167]12000
  144. 1261 [139]sp[179][177]10[176]sl[178]1[167]1265
  145. 1262 [139]ob(1)[179][177][171]1[175]sl[178]0[175]sp[178]10[167]8950
  146. 1263 [139]ob(1)[178][171]1[175]sl[178]0[175]sp[178]10[167]8960
  147. 1264 [153]"geschlagen. ihr gewehr fing den sclag ab":[137]1280
  148. 1265 [139]sp[178]17[175]ob(9)[179][177]0[167][153]"sie werden von dem gangster angefallen"
  149. 1266 [139]sp[178]17[175]ob(9)[179][177]0[175]ei$[178]"s"[167][153]"sie sind tod":[128]
  150. 1267 [139]sp[178]22[175]ob(23)[178][171]1[175]ob(15)[179][177]0[167][153]"sie wurden erschossen":[128]
  151. 1280 [133]"was wollen sie tun:";ei$
  152. 1281 [139]ob(20)[178]0[175] ei$[178]"h"[167]12000
  153. 1282 [139]ob(20)[178]0[175] ei$[178]"o"[167]12000
  154. 1286 [139]sp[178]17[175]ob(9)[179][177]0[175]ei$[178]"s"[167][153]"sie sind tod":[128]
  155. 1289 [139]tk[178]1[175]ei$[178]"o"[167][153]"der todesstern explodierte, aber mit ihnen":[128]
  156. 1290 [139]ei$[178]"n"[175]ob(5)[179][177][171]1[175]sp[178]4[167][153]ms$(3):[137]1280
  157. 1291 [139]ei$[178]"n"[175]sp[178]22[175]ot[178]0[167][153]"ms$(4):end
  158. 1292 ifei$="n"andsp=20andob(11)<>0thenprintms$(4):end
  159. 1293 ifei$="o"andsp=13andob(8)<>0thenprintms$(4):end
  160. 1294 ifei$="n"andsp=29andob(18)<>0thenprintms$(5):end
  161. 1295 ifei$="o"andsp=31andob(19)<>0thenprintms$(5):end
  162. 1296 ifei$="s"andsp=31andob(19)<>0thenprintms$(5):end
  163. 1297 ifei$="n"anddu(sp,1)<>0thensp=du(sp,1):goto1080
  164. 1300 ifei$="s"anddu(sp,2)<>0thensp=du(sp,2):goto1080
  165. 1310 ifei$="w"anddu(sp,3)<>0thensp=du(sp,3):goto1080
  166. 1320 ifei$="o"anddu(sp,4)<>0thensp=du(sp,4):goto1080
  167. 1330 ifei$="h"anddu(sp,5)<>0thensp=du(sp,5):goto1080
  168. 1340 ifei$="r"anddu(sp,6)<>0thensp=du(sp,6):goto1080
  169. 1345 ifei$="inv"then1355
  170. 1350 ifei$<>"inv"then1370
  171. 1355 print"sie haben bei sich:"
  172. 1360 fori=1toao
  173. 1361 ifob(i)=-1thenprintob$(i)
  174. 1362 nexti
  175. 1366 goto1280
  176. 1370 ifei$="sie"then1080
  177. 1380 iflen(ei$)<3thenprint"dahin fuehrt kein weg":goto1280
  178. 2000 ln=len(ei$)
  179. 2010 forel=1toln:te$=mid$(ei$,el,1)
  180. 2030 ifte$<>" "then next el
  181. 2040 ev$=left$(ei$,3):rl=ln-el:ifrl<0then2070
  182. 2065 eo$=right$(ei$,rl)
  183. 2066 eo$=left$(eo$,3)
  184. 2070 forvn=1toav
  185. 2080 ifev$=ve$(vn)then2110
  186. 2090 nextvn
  187. 2100 print"das verb verstehe ich nicht":goto1280
  188. 2110 forn=1toao
  189. 2120 ifeo$=rn$(n)then3000
  190. 2130 nextn
  191. 2140 print"das objekt vestehe ich nicht":goto1280
  192. 2180 print"sehe ich hier nicht":goto1280
  193. 3000 print"":onvngoto3100,3500,4000,4500,5000,5500,6000,6500,7000,7500
  194. 3100 ifob(n)<>spthen3180
  195. 3101 ifob(n)=-1thenprint"haben sie schon":goto1280
  196. 3102 ifob(16)=-1thenprint"ha ha ha":goto1280
  197. 3110 ifn=3thenprint"sie muessen sie kaufen":goto1280
  198. 3111 ifn=4thenprint"sie muessen sie kaufen":goto1280
  199. 3115 ifn=5thenprintms$(6):goto1280
  200. 3118 ifn=6thenprint"sie bekommen eine ohrfeige":goto1280
  201. 3119 ifn=8orn=11orn=15thenprintms$(4):goto1280
  202. 3120 ifn=9thenprintms$(4):goto1280
  203. 3121 ifn=10thenprintms$(6):goto1280
  204. 3122 ifn=14thenprintms$(6):goto1280
  205. 3123 ifn=16thenprintms$(6):goto1280
  206. 3124 ifn=17thenprintms$(6):goto1280
  207. 3125 ifn=23thenprint"danke mein retter":ob(23)=-1:goto1280
  208. 3130 ifn=22thenprint"danke mein sohn":ob(n)=-1:goto1280
  209. 3140 ob(n)=-1:goto1080
  210. 3180 print"sehe ich hier nicht":goto1280
  211. 3500 ifob(n)<>-1thenprint"haben sie nicht":goto1280
  212. 3510 ifn=3orn=4thenprint"sie folgen ihnen":goto1280
  213. 3520 ifn=10 thenprint"pfffffl":goto1280
  214. 3530 ifn=5 thenprint"pfffffl":goto1280
  215. 3540 ifn=16thenprint"pfffffl":goto1280
  216. 3700 ob(n)=sp
  217. 4000 ifob(n)<>spthenprint"sehe ich hier nicht"
  218. 4010 ifob(7)<>-1thenprint"sie haben kein schwert":goto1280
  219. 4020 ifn=3thenprint"ms$(2):goto1280
  220. 4030 [139]n[178]4[167][153]"ms$(2):goto1280
  221. 4040 ifn=22thenprint"ms$(2):goto1280
  222. 4050 [139]n[178]23[167][153]"ms$(2):goto1280
  223. 4055 ifn=6thenprint"ms$(2):goto1280
  224. 4060 [139]n[178]8[167][153]ms$(4)
  225. 4065 [139]n[178]15[167][153]ms$(4)
  226. 4070 [139]n[178]9[167][153]"der verbrecher ist tod":ob(9)[178]0:[137]1280
  227. 4080 [139]n[178]11[167][153]"die soldaten sind erledigt":ob(11)[178]0:ob(13)[178]20:[137]1280
  228. 4090 [153]"das geht nicht":[137]1280
  229. 4500 [139]ij[178]0[175]ob(13)[179][177][171]1[175]ob(1)[179][177][171]1[167][153]"womit":[137]1280
  230. 4520 [139]n[178]3[167][153]"ms$(2):goto1280
  231. 4530 ifn=4thenprint"ms$(2):goto1280
  232. 4540 [139]n[178]22[167][153]"ms$(2):goto1280
  233. 4555 ifn=6thenprint"ms$(2):goto1280
  234. 4560 [139]n[178]8[167][153]ms$(4)
  235. 4570 [139]n[178]15[167][153]"erledigt":ob(15)[178]0:ot[178]1:[137]1280
  236. 4580 [139]n[178]18[167][153]"erledigt":ob(18)[178]0:[137]1280
  237. 4581 [139]n[178]14[167][153]"erledigt":ob(14)[178]0:gz[178]1:[137]1280
  238. 4582 [139]n[178]19[167][153]"erledigt":ob(19)[178]0:[137]1280
  239. 4590 [139]n[178]20[167][153]"treffer! schnell weg hier":ob(20)[178]0:[137]1280
  240. 4600 [153]"das geht nicht":[137]1280
  241. 5000 [139]ob(n)[179][177]sp[167][153]"sehe ich hier nicht":[137]1280
  242. 5010 [139]ob(2)[179][177][171]1[175]ob(21)[179][177][171]1[167][153]"womit denn":[137]1280
  243. 5110 [139]n[178]3[167][153]"sie bekommen beide":ob(3)[178][171]1:ob(4)[178][171]1:ob(2)[178]0:[137]1280
  244. 5111 [139]n[178]4[167][153]"sie bekommen beide":ob(3)[178][171]1:ob(4)[178][171]1:ob(2)[178]0:[137]1280
  245. 5120 [139]n[178]10[167][153]"sie bekommen ihn geliehen":fk[178]1:ob(21)[178]0:[137]1280
  246. 5200 [153]"unverkaeuflich":[137]1280
  247. 5500 [139]ob(n)[179][177][171]1[167][153]"haben sie nicht"
  248. 5510 [139]sp[179][177]16[167][153]"hier ist kein markt":[137]1280
  249. 5520 [139]n[179][177]5[167][153]"mann ist nur an gleitern interresiert":[137]1280
  250. 5530 [153]"sie bekommen geld":ob(5)[178]0:ob(21)[178][171]1:[137]1280
  251. 6000 [139]ob(n)[179][177][171]1[167] [153]"haben sie nicht bei sich":[137]1280
  252. 6010 [139]n[179][177]12[167][153]"geht nicht":[137]1250
  253. 6020 [139]sp[179][177]13[167][153]"sie koennen sich hier nicht konzentrieren":[137]1280
  254. 6030 [153]"die truppler ziehen ab als waeren sie   besoffen":ob(8)[178]0:[137]1280
  255. 6500 [139]ob(n)[179][177]sp[167][153]"sehe ich hier nicht":[137]1280
  256. 6510 [139]n[178]5[167][153]"o.k.":ob(5)[178][171]1:[137]1280
  257. 6515 [139]n[178]24[167]sp[178]17:[137]1080
  258. 6519 [139]n[178]10[175]ob(23)[179][177][171]1[175]ds[178]1[167][153]"wir brauchen noch leia":[137]1280
  259. 6520 [139]n[178]10[175]vk[178]1[167]sp[178]19:ob(10)[178][171]1:[137]9500
  260. 6521 [139]n[178]10[175]ob(23)[178][171]1[175]ob(14)[178]0[167]sp[178]19:ob(10)[178][171]1:[137]8939
  261. 6530 [139]n[178]10[175]fk[178]0[167]6700
  262. 6535 [139]n[178]10[167]sp[178]19:ob(10)[178][171]1:ds[178]1:[137]1080
  263. 6536 [139]n[178]10[175]ds[178]1[175]ob(14)[179][177]0[167][153]"der generator":[137]1280
  264. 6540 [139]n[178]16[167][153]"o.k.":ij[178]1:ob(16)[178][171]1:sp[178]29: [137]14000
  265. 6600 [153]"kann ich nicht betreten":[137]1280
  266. 6700 [153]"kapitaen han solo sagt: erst zahlen     kleiner":[137]1280
  267. 7000 [139]ob(n)[179][177][171]1[167][153]"haben sie nicht bei sich":[137]1280
  268. 7100 [139]n[178]5[167]ob(5)[178]sp:[137]1080
  269. 7110 [139]n[178]10[175] ih[178]1[167]sp[178]20:ob(10)[178]sp:ih[178]0:[137]1080
  270. 7111 [139]n[178]10[175] fy[178]1[167]sp[178]26:ob(10)[178]0:[137]1080
  271. 7115 [139]n[178]15[175]ih[178]1[167]sp[178]20
  272. 7120 [139]n[178]19[167]ob(19)[178]sp:[137]1080
  273. 7200 [153]"galaktischer scherzkeks":[137]1280
  274. 7500 [139]ob(n)[179][177]sp[175]ob(n)[179][177][171]1[167] [153]"sehe ich hier nicht":[137]1280
  275. 7510 [139]ob(n)[178][171]1[167]7600
  276. 7520 [139]n[178]17[167]7540
  277. 7530 [153]"der imperator ist doof":[137]1280
  278. 7540 [153]"load"
  279. 7541 [153]"              angriffsplan             wait"
  280. 7542 [153]"der todesstern wird durch einen treffer "
  281. 7543 [153]"onin einen ventilationsschacht zerstoert."
  282. 7544 [153]"danach die maschiene hochziehen."
  283. 7545 [153]"wenn ein imperialer oder ein laserturm"
  284. 7546 [153]"auftaucht sofort feuern."
  285. 7550 [153]"moege die macht mit euch sein"
  286. 7560 [161]a$:[139]a$[178]""[167]7560
  287. 7570 [137]1080
  288. 7600 [139]n[178]13[167][153]"abgabe an pesonen unter 18 j verboten":[137]1280
  289. 7610 [139]n[178]7[167][153]"vor gebrauch schuetteln":[137]1280
  290. 7620 [153]"made in japan":[137]1280
  291. 8900 [153]"ben kenobi lenkt die soldaten ab und "
  292. 8901 [153]"ruft sie sollen fliehen":ob(22)[178]0:[137]1280
  293. 8910 [153]"soldaten stellen sich euch in den weg   und toeten euch":[128]
  294. 8920 [153]"load"
  295. 8939 [153]"sie starten und sind auf dem kurs zur"
  296. 8940 [153]"rebellenbasis":fy[178]1:[137]1280
  297. 8950 [153]"sie wurden von sandleuten todgeschlagen":[128]
  298. 8960 [153]"sie wurden von sandleuten angeriffen":sl[178]1
  299. 8961 [153]"aber ihr gewehr fing den schlag ab":ob(1)[178]0:[137]1280
  300. 10000 [153]"load"
  301. 10010 [153]"der rasende falke startet "
  302. 10011 [153]"doch nachdem er aus dem hyperraum "
  303. 10012 [153]"wiederauftaucht wird er von eimem "
  304. 10013 [153]"traktorstrahl des todessterns angezogen"
  305. 10014 [153]"das schiff bleibt im hangar gefangen "
  306. 10015 [153]"bis der generator zerstoert wird":ds[178]1:ih[178]1:dt[178]1
  307. 10016 [161]a$:[139]a$[178]""[167]10016
  308. 10017 :[137]1080
  309. 12000 [153]"load"
  310. 12010 [153]"        sie haben es geschafft!"
  311. 12020 [153]"der todesstern ist zerstoert! aber"
  312. 12030 [153]"das impeium besteht noch. darth vather"
  313. 12040 [153]"konnte fliehen und wird sicher bald zu"
  314. 12050 [153]"einem gegenschlag ausholen. naehmlich"
  315. 12060 [153]"in der naechtsen folge im filmepos"
  316. 12070 [153]"krieg der sterne: "
  317. 12080 [153]"    das imperium schlaegt zurueckwait"
  318. 12090 [153]"erwarten sie in kueze noch weitere "
  319. 12100 [153]"programme von mad rommel & max"
  320. 12130 [161]a$:[139]a$[178]""[167]12130:[128]
  321. 12140 [128]
  322. 13000 [153]"loadder todessterwurde zerstoert:mit ihnen"
  323. 14000 [153]"sie nehmen kurs auf den todesstern":[129] n[178]0[164]2000:[130] n:[137]1080
  324.